Public Class ETutor
#Region "herencia de persona"
    Inherits EPersona
#End Region
#Region "declaracion de propiedades"

    Private midtutor As Int32
    Private mprofesion As String
    Private mnacionalidad As String
    Private mcuit As String
    Private mnota As String
    Private mestado As Integer

    Public Property idtutor() As Int32
        Get
            Return midtutor
        End Get
        Set(ByVal value As Int32)
            midtutor = value
        End Set
    End Property

    Public Property profesion() As String
        Get
            Return mprofesion
        End Get
        Set(ByVal value As String)
            mprofesion = value
        End Set
    End Property

    Public Property nacionalidad() As String
        Get
            Return mnacionalidad
        End Get
        Set(ByVal value As String)
            mnacionalidad = value
        End Set
    End Property

    Public Property cuit() As String
        Get
            Return mcuit
        End Get
        Set(ByVal value As String)
            mcuit = value
        End Set
    End Property


    Public Property nota() As String
        Get
            Return mnota
        End Get
        Set(ByVal value As String)
            mnota = value
        End Set
    End Property


    Public Property estado() As Integer
        Get
            Return mestado
        End Get
        Set(ByVal value As Integer)
            mestado = value
        End Set
    End Property


#End Region


#Region "metodos publicos"

    'inicializa la entidad a los valeres por defecto
    Public Sub New()
        MyBase.new()
        midtutor = 0
        mprofesion = ""
        mnacionalidad = ""
        mcuit = ""
        mnota = ""
        mestado = 0
    End Sub

#End Region
End Class
